home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / acctg / tonyray1 / zb1.prg < prev   
Text File  |  1985-09-01  |  416b  |  20 lines
  1. CLEA
  2. @03,10 SAY 'THIS PROGRAM ZEROS ACCOUNTS IN ANTICIPATION OF'
  3. @04,10 SAY 'NEXT MONTHS BILLING '
  4. @06,10 SAY 'ALL BILLING SHOULD BE COMPLETED BEFORE THIS PROGRAM'
  5. @07,10 SAY 'IS RUN'
  6. @09,10 SAY 'TYPE -ZERO- ANY THING ELSE WILL ABORT PROGRAM'
  7. MZERO=SPACE(4)
  8. @11,46 GET MZERO
  9. READ
  10. CLEA GETS
  11. IF UPPER(MZERO)='ZERO'
  12. SELE SERVICE
  13. REPL ALL CLOSED WITH .T.
  14. CURR='02'
  15. ELSE
  16. CURR='02'
  17. ENDI
  18. CURR='02'
  19. RETU
  20.